home *** CD-ROM | disk | FTP | other *** search
/ p.OS (PreRelease) / p.OS PreRelease.iso / pos_install < prev    next >
Text File  |  1997-07-23  |  15KB  |  391 lines
  1. ; proDAD
  2. ; $VER: pOS_Install 1.0 (21.07.1997) (Copyright by proDAD, All Rights Reserved)
  3.  
  4.  
  5. (if (<> @language "english")
  6.   (if (<> @language "deutsch")
  7.     (set @language "deutsch")
  8.   )
  9. )
  10.  
  11.  
  12. ;=============================================================================
  13. ; Deutsche Texte  (default)
  14.  
  15. ;(if (= @language "deutsch")
  16. ;(
  17.   (set #welcome               (cat "\n\nWillkommen zum Installationsprogramm für p.OS.\n\n"
  18.                                    "Für die vollständige Installation von pOS benötigen Sie 4 MByte freies Ram und 16 MByte freien Festplattenspeicher. Außerdem muß ein 68020 Prozessor (oder besser) vorhanden sein.\n\n"
  19.                                    "Installation fortsetzen ?"))
  20.  
  21.   (set #abort_version         (cat "p.OS Prerelease benötigt mindestens das\nAmigaOS OS 2.04 (V37)\noder größer.\n\n\nINSTALLATION WIRD ABGEBROCHEN"))
  22.   (set #abort_cpu             (cat "p.OS benötigt mindestens einen\n68020 Prozessor oder besser.\n(Vorhanden ist nur ein %s)\n\n\nINSTALLATION WIRD ABGEBROCHEN"))
  23.   (set #abort_memory          (cat "p.OS benötigt mindestens\n4 MByte freien Hauptspeicher.\n(Vorhanden sind nur %ld MBytes)\n\n\nINSTALLATION WIRD ABGEBROCHEN"))
  24.   (set #abort_diskname        (cat "\nLaufwerk\n\"%s\"\nist nicht gültig !!!\n\n\nINSTALLATION WIRD ABGEBROCHEN"))
  25.   (set #abort_diskspace       (cat "\nDas ausgewählte Laufwerk\n\"%s\"\nkann kein vollständiges p.OS aufnehmen !!!\n(Nur noch %ld kByte frei.)\n\n\nINSTALLATION WIRD ABGEBROCHEN"))
  26.  
  27.   (set #needinstalcd          (cat "\nBenötige die Installations-CD\n\"%s\"\nin einem Laufwerk,\num mit der Installation fortfahren zu können."))
  28.   (set #needinstalcdhelp      (cat "Ohne die Installations-CD kann p.OS nicht installiert werden!\n\n" @askdisk-help))
  29.  
  30.   (set #selectdrawer          (cat ("Bitte wählen Sie das LAUFWERK aus, in dem p.OS installiert werden soll.")))
  31.   (set #selectdrawerherp      (cat "Wählen Sie das LAUFWERK aus, in dem p.OS installiert werden soll.\n"
  32.                                    "Es muß sich um ein Hauptverzeichnis handeln!\n"
  33.                                    "Es wird automatisch eine Schublade \"pOS\" erzeugt.\nBereits bestehende Daten bleiben unverändert erhalten und werden NICHT gelöscht.\n\n"
  34.                                    @askdir-help))
  35.   (set #startinstall          (cat "\n\nDas pOS-Verzeichnis \"%s\"\nwird jetzt erstellt und die Daten werden dorthin installiert ..."))
  36.   (set #assignedpos           (cat "\n\nAssign \"pOS:\" wird in die \"User-Startup\"-Datei eingetragen."))
  37.  
  38.   (set #reqchoices1           (cat "Weiter"))
  39.   (set #reqchoices2           (cat "Diesen Teil überspringen"))
  40.  
  41.   (set #checksystem           (cat "\nEs wird nun geprüft, ob Programme installiert sind, die im Parallelbetrieb mit p.OS zu Schwierigkeiten führen können. Diese Programme werden nach Rückfrage automatisch deaktiviert."))
  42.   (set #checksystemhelp       (cat "" @askbool-help))
  43.   (set #checksystemworking    (cat "Das Programm \"Check System\"\nwird aktiviert."))
  44.  
  45.   (set #mountamigavol         (cat "\nSie können festlegen, welche Amiga-Laufwerke auch unter p.OS eingesetzt werden sollen. Diese Laufwerke müssen Sie im nächsten Fenster abhaken."))
  46.   (set #mountamigavolhelp     (cat "" @askbool-help))
  47.   (set #mountamigavolworking  (cat "Das Programm \"MountAmigaVol\"\nwird aktiviert."))
  48.  
  49.   (set #startparameter        (cat "\nNachfolgend können Sie einige Parameter zu Ihrem System einstellen. Vor allem der Bildschirmmodus und der Zeichensatz sollten entsprechend der vorhandenen Hardware (ESC, AGA, Grafikkarte) angepaßt werden.\n\nZusätzlich wird ein Icon zum Start von p.OS eingerichtet."))
  50.   (set #startparameterhelp    (cat "" @askbool-help))
  51.   (set #startparameterworking (cat "Das Programm \"StartParameter\"\nwird aktiviert."))
  52.  
  53.   (set #activate              (cat "\nEs existieren verschiedene Möglichkeiten zur Aktivierung von p.OS.\nBitte wählen Sie die gewünschte Art aus."))
  54.   (set #activatehelp          (cat "" @askchoice-help))
  55.   (set #activatechoices0      (cat "Start-Icon auf die Amiga-Workbench auslagern"))
  56.   (set #activatechoices1      (cat "Automatisch mit dem Amiga starten"))
  57.   (set #activatechoices2      (cat "p.OS von Hand aus dem pOS-Verzeichnis starten"))
  58.   (set #activate0work         (cat "\nStart-Icon für p.OS wird ausgelagert\n..."))
  59.   (set #activate2work         (cat "\nStart-Icon für p.OS wird in die WBStartup-Schublade der Amiga-Workbench kopiert\n..."))
  60.  
  61.   (set #complete              (cat "Installation abgeschlossen!\n\p.OS finden Sie nun in Ihrer Schublade \"%s\".\n\n"))
  62. ;)
  63. ;)
  64.  
  65.  
  66. ;=============================================================================
  67. ; Englische Texte
  68.  
  69. (if (= @language "english")
  70. (
  71.  
  72.   (set #welcome               (cat "\n\nWelcome to the p.OS installation.\n\n"
  73.                                    "For a complete installation you will need at least 4 MByte free "
  74.                                    "memory and 16 MByte free disk space. In addition a 68020 "
  75.                                    "cpu (or better) is required.\n\n"
  76.                                    "Continue installation ?"))
  77.  
  78.   (set #abort_version         (cat "This p.OS prerelease needs the\n"
  79.                                    "AmigaOS 2.04 (V37) or greater.\n\n\n"
  80.                                    "ABORT INSTALLATION"))
  81.   (set #abort_cpu             (cat "p.OS needs at least a 68020 cpu.\n"
  82.                                    "(%s found)\n\n\n"
  83.                                    "ABORT INSTALLATION"))
  84.   (set #abort_memory          (cat "p.OS needs 4 MByte memory.\n"
  85.                                    "(%ld MByte memory found)\n\n\n"
  86.                                    "ABORT INSTALLATION"))
  87.   (set #abort_diskname        (cat "Drive\n"
  88.                                    "\"%s\"\n"
  89.                                    "is invalid !!!\n\n\n"
  90.                                    "ABORT INSTALLATION"))
  91.   (set #abort_diskspace       (cat "\nThere is not enough free space\n"
  92.                                    "for a complete p.OS installation on drive\n"
  93.                                    "\"%s\" !!!\n\n\n"
  94.                                    "(Only %ld kByte free.)\n\n\n"
  95.                                    "ABORT INSTALLATION"))
  96.  
  97.   (set #needinstalcd          (cat "Need the installation CD\n"
  98.                                    "\"%s\"\n"
  99.                                    "to continue with the installation process."))
  100.   (set #needinstalcdhelp      (cat "p.OS cannot be installed without the installation CD !\n\n" @askdisk-help))
  101.  
  102.   (set #selectdrawer          (cat "Please choose the DRIVE for the p.OS installation."))
  103.  
  104.   (set #selectdrawerherp      (cat "Please choose a DRIVE for the p.OS installation.\n"
  105.                                    "A root directory is needed !\n"
  106.                                    "A drawer \"pOS\" will be created automatically.\n"
  107.                                    "Old data will remain unchanged. Nothing will be deleted.\n\n" @askdir-help))
  108.  
  109.   (set #startinstall          (cat "\n\nCreate drawer \"%s\" and\n"
  110.                                    "install all data there..."))
  111.  
  112.   (set #assignedpos           (cat "\n\nInsert assign \"pOS:\" into the \"User-Startup\" file."))
  113.  
  114.   (set #reqchoices1           (cat "Continue"))
  115.   (set #reqchoices2           (cat "Skip this part."))
  116.  
  117.   (set #checksystem           (cat "\nChecking for installed tools, which can make trouble, if they run together with p.OS. "
  118.                                    "These tools will be deactivated automatically after a confirmation request." ))
  119.   (set #checksystemhelp       (cat "" @askbool-help))
  120.   (set #checksystemworking    (cat "Tool \"CheckSystem\" is now active."))
  121.  
  122.   (set #mountamigavol         (cat "\nYou can choose some Amiga drives for use in p.OS. "
  123.                                    "Please select these drives in the next window." ))
  124.  
  125.   (set #mountamigavolhelp     (cat "" @askbool-help))
  126.   (set #mountamigavolworking  (cat "Tool \"MountAmigaVol\" is now active."))
  127.  
  128.   (set #startparameter        (cat "Now you can set some system options. "
  129.                                    "Please choose the screen mode and font according to your hardware "
  130.                                    "(ESC, AGA or graphics card).\n\n"
  131.                                    "A p.OS start icon will also be created."))
  132.   (set #startparameterhelp    (cat "" @askbool-help))
  133.   (set #startparameterworking (cat "Tool \"StartParameter\" is now active."))
  134.  
  135.   (set #activate              (cat "There are different possibilities to start p.OS.\n"
  136.                                    "Please choose your most prefered method."))
  137.   (set #activatehelp          (cat "" @askchoice-help))
  138.   (set #activatechoices0      (cat "A start icon on Amiga Workbench"))
  139.   (set #activatechoices1      (cat "Start automatically with Amiga system"))
  140.   (set #activatechoices2      (cat "Start p.OS from its drawer by hand"))
  141.   (set #activate0work         (cat "\nLeave out the p.OS start icon\n..."))
  142.   (set #activate2work         (cat "\nCopy the p.OS start icon into the WBStartup drawer\n..."))
  143.   (set #complete              (cat "Installation complete !\n"
  144.                                    "You can find p.OS at the \"%s\" drawer.\n\n\n"))
  145. )
  146. )
  147.  
  148.  
  149.  
  150. ;=============================================================================
  151.  
  152. ;-----------------------------------------------------------------------------
  153. ; hier die Vorbelegungen:
  154.  
  155.   (set @default-dest "Work:")
  156.   (set #Installdisk "p.OS-PreRelease:")
  157.   (set #NEED_HDmem 16400)     ; freier Festplattenspeicher
  158.   (set @execute-dir "p.OS-PreRelease:install")  ; Verzeichnis bei Aufruf von externen Programmen
  159.  
  160.   (complete 0)
  161.  
  162.  
  163. ;-----------------------------------------------------------------------------
  164. ; Begrüßung ausgeben
  165.  
  166.   (user 2) ; immer als Experte installieren
  167.   (message #welcome)
  168.  
  169.  
  170. ;-----------------------------------------------------------------------------
  171. ; Versionsnummer des AmigaOS überprüfen
  172.  
  173.   (set #OS_Version (/ (getversion "libs:version.library") 65536))
  174.   (if (= #OS_Version 0) (set #OS_Version (/ (getversion "exec.library" (resident)) 65536)))
  175.   (if (< #OS_Version 37) (abort #abort_version))
  176.  
  177.  
  178. ;-----------------------------------------------------------------------------
  179. ; Korrekte CPU überprüfen
  180.  
  181.   (set #Cpu (database "cpu"))
  182. (debug "CPU: " #Cpu)
  183.   (if (< #Cpu "68020") (abort (#abort_cpu #Cpu)))
  184.  
  185.  
  186. ;-----------------------------------------------------------------------------
  187. ; Genug freies Fast-Ram überprüfen
  188.  
  189.   (set #Mem (database "total-mem"))
  190.   (set #GfxMem (database "graphics-mem"))
  191. (debug "Memory: " (- #Mem #GfxMem))
  192.   (if (< (- #Mem #GfxMem) 4200000) (abort (#abort_memory  (/(- #Mem #GfxMem)1048576))))
  193.  
  194.  
  195. ;-----------------------------------------------------------------------------
  196. ; Installations-Diskette muß in einem Laufwerk liegen
  197. ;(debug "Punkt-A2 (Installdisk verlangen)")
  198.  
  199. (debug "Install-CD: " (substr #Installdisk 0 (- (strlen #Installdisk) 1)))
  200.   (askdisk
  201.     (prompt (#needinstalcd #Installdisk))
  202.     (help #needinstalcdhelp)
  203.     (dest (substr #Installdisk 0 (- (strlen #Installdisk) 1)))
  204.   )
  205.   (working)
  206.  
  207.   (complete 5)
  208.  
  209.  
  210. ; ======================== pOS ======================================
  211.  
  212.  
  213. ;-----------------------------------------------------------------------------
  214. ; prüfen ob Zielverzeichnis existiert, sonst Verzeichnisauswahl vornehmen
  215.  
  216.   (set #pos-volume
  217.     (askdir
  218.       (prompt #selectdrawer)
  219.       (help #selectdrawerhelp)
  220.       (default @default-dest)
  221.       (disk)
  222.     )
  223.   )
  224.   (set #pos-volume (cat (getdevice #pos-volume) ":"))  ; Doppelpunkt vom Laufwerksname geht verloren
  225. (debug "Zielverzeichnis: " #pos-volume)
  226.  
  227.  
  228. ;-----------------------------------------------------------------------------
  229. ; existiert jetzt das Ziel-Verzeichnis nicht, wird die Installation
  230. ; abgebrochen
  231.  
  232.   (if (< (exists #pos-volume (noreq)) 2) (abort (#abort_diskname #pos-volume)))
  233.  
  234.  
  235. ;-----------------------------------------------------------------------------
  236. ; prüfen, ob genug Platz für die Installation vorhanden ist
  237.  
  238.   (set #diskmem (/ (getdiskspace #pos-volume) 1024))  ;in kByte umrechnen
  239. (debug "diskspace: " #diskmem " benötigt wird: " #NEED_HDmem)
  240.   (if (< #diskmem #NEED_HDmem) (abort (#abort_diskspace #pos-volume #diskmem)))
  241.  
  242.  
  243. ;-----------------------------------------------------------------------------
  244. ; dann das pOS-Verzeichnis erstellen und die gewünschten Daten kopieren
  245.  
  246.   (set @default-dest (tackon #pos-volume "pOS"))
  247.   (message (#startinstall @default-dest))
  248.  
  249.   (makedir @default-dest (infos))
  250.  
  251.  
  252.   (copyfiles
  253.     (source (tackon #Installdisk "pOS/"))
  254.     (dest @default-dest)
  255.     (pattern "#?")
  256.   )
  257.   (complete 50)
  258.  
  259.  
  260. ;-----------------------------------------------------------------------------
  261. ; jetzt noch den Assign für pOS setzen und ...
  262.  
  263.   (makeassign "pOS" #pos-volume)
  264.  
  265.   (user 0)
  266.   (startup @app-name
  267.     (command (cat " Assign pOS: " #pos-volume))
  268.     (prompt #assignedpos)
  269.     (help @startup-help)
  270.   )
  271.   (user 2)
  272.   (complete 60)
  273.  
  274.  
  275. ;-----------------------------------------------------------------------------
  276. ; ... und die Systemcheck-Programme aufrufen
  277.  
  278.   (if (askbool
  279.         (prompt #checksystem)
  280.         (help #checksystemhelp)
  281.         (default 1)
  282.         (choices #reqchoices1 #reqchoices2)
  283.       )
  284.       (
  285.         (working #checksystemworking)
  286.         (run ("CheckSystem %s" @language) )
  287. (debug "Returncode von CheckSystem: " @ioerr)
  288.       )
  289.   )
  290.   (complete 70)
  291.  
  292.  
  293.  
  294.   (if (askbool
  295.         (prompt #mountamigavol)
  296.         (help #mountamigavolhelp)
  297.         (default 1)
  298.         (choices #reqchoices1 #reqchoices2)
  299.       )
  300.       (
  301.         (working #mountamigavolworking)
  302.         (run ("MountAmigaVol %s" @language) )
  303. (debug "Returncode von MountAmigaVol: " @ioerr)
  304.       )
  305.   )
  306.   (complete 80)
  307.  
  308.  
  309.   (if (askbool
  310.         (prompt #startparameter)
  311.         (help #startparameterhelp)
  312.         (default 1)
  313.         (choices #reqchoices1 #reqchoices2)
  314.       )
  315.       (
  316.         (working #startparameterworking)
  317.         (run ("StartParameter %s" @language) )
  318. (debug "Returncode von StartParameter: " @ioerr)
  319.       )
  320.   )
  321.   (complete 90)
  322.  
  323.  
  324. ;-----------------------------------------------------------------------------
  325. ; auf Wunsch pOS automatisch beim Amiga-Start mit aktivieren
  326. ; oder auf die Amiga-Workbench auslagern
  327.  
  328.  
  329.   (set auswahl
  330.     (askchoice
  331.       (prompt #activate)
  332.       (help #activatehelp)
  333.       (default 0)
  334.       (choices #activatechoices0 #activatechoices1 #activatechoices2)
  335.     )
  336.   )
  337.  
  338.   (if (= auswahl 0)
  339.     (
  340.       (working #activate0work)
  341.  
  342.       ; existiert die backdrop-Datei noch nicht, erst eine leere anlegen
  343.       (if (= (exists (tackon #pos-volume ".backdrop") (noreq)) 0)
  344.           (textfile (append "") (dest (tackon #pos-volume ".backdrop")))
  345.       )
  346.  
  347.       (textfile
  348.         (include (tackon #pos-volume ".backdrop"))
  349.         (append ":Start p.OS")
  350.         (dest (tackon #pos-volume ".backdrop"))
  351.       )
  352.     )
  353.   )
  354.   (if (= auswahl 1)
  355.     (
  356.       (working #activate1work)
  357.  
  358.       (copyfiles
  359.         (source #pos-volume)
  360.         (dest "SYS:WBStartup")
  361.         (pattern "Start p.OS(%|.info)")
  362.       )
  363.     )
  364.   )
  365.   ;auswahl=2 => keine Änderung notwendig
  366.  
  367.  
  368. ;-----------------------------------------------------------------------------
  369. ; Fertig
  370.  
  371. (if (= @language "english")
  372. (
  373.   (copyfiles
  374.     (source (tackon #Installdisk "english/"))
  375.     (dest @default-dest)
  376.     (pattern "#?")
  377.   )
  378. )
  379. )
  380.  
  381.   (working)
  382.  
  383.   (complete 100)
  384.  
  385.   (user 2)
  386.   (message (#complete @default-dest))
  387.  
  388. ;  (run "Reboot")
  389.  
  390. ;=============================================================================
  391.